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