#!/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" );