10 lines
188 B
Perl
10 lines
188 B
Perl
|
#!/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" );
|