#!/perl

mkdir( "another test" );

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

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