die "Usage: four arguments\n" unless $#ARGV == 3;
my ($src_filename,$var_filename,$tgt_filename,$mac_filename) = @ARGV;