$file = $ARGV[0];
shift;
unshift(ARGV, '-');

open (FILE, ">>$file");
flock (FILE, 2) ;
seek (FILE, 0, 2);
print FILE <> ;
close (FILE);
