my $fn = "$ENV{SENDMAIL_TESTDIR}/".time.$$;
-my $fh = new IO::File $fn ,'w' or die "Unable to open file $fn for writing: $!";
+my $fh = IO::File->new($fn ,'w') or die "Unable to open file $fn for writing: $!";
-print {$fh} join(' ',map {"'$_'"} @ARGV) or die "Unable to write to file $fn: $!";
+print {$fh} "$0 called with: ", join(' ',map {"'$_'"} @ARGV) or die "Unable to write to file $fn: $!";
print {$fh} "\n\n";
-print {$fh} <> or die "Unable to write to file $fn: $!";
+print {$fh} <STDIN> or die "Unable to write to file $fn: $!";
close $fh or die "Unable to close file $fn: $!";