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