#!/perl

open( FILE, ">", "this is a test . txt" );
print FILE "yeah";
close( FILE );

open( FILE, "<", "this is a test . txt" );
while (my $line = <FILE>)
{
    print $line;
}
close( FILE );