Mega Code Archive

 

Categories / Perl / System Functions

 

Uses the system function to clear the screen

#!/usr/bin/perl use warnings; use strict; print( "What file would you like to create? " ); chomp( my $file = <STDIN> ); ( $^O =~ /Win/ ) ? system( "cls" ) : system( "clear" );