open my $fh, '>', 'fileloc' or die "Can't open `fileloc': $!\n";