my $fh = FileHandle->new(">./test");
print $fh "Hello\n";