no strict;
no warnings;
use File::Map ':all';

my $fnam = shift @ARGV or die;
open(my $fh, '>>', $fnam) or die;
my $off = -s $fh;

print $fh join " ", @ARGV;
close $fh; # !

# rotate in place
map_file my $mmap, $fnam, '+<';
substr($mmap, 0, 0, substr($mmap, $off));