#!perl -w

use strict;

open(OUT, ">>drop.txt") or die "Could not open drop.txt";

my $time = scalar localtime;
print OUT $time,"\t";
print OUT @ARGV,"\n";
close (OUT);