# HistorySaver.pm
use strict;
use warnings;

BEGIN{
	print join " ",	$^X,($^C ? '-c' : ''),(${^TAINT} ? '-T':''),$^W  ? '-w' :'',$0,@ARGV;
}


1; # a true value!