my $q_archive  = quotemeta($ARGV[0]);
my $q_filename = quotemeta($filename);
system("tar $args $q_archive > $q_filename")

##</code><code>##

system("tar $args \Q$ARGV[0]\E > \Q$filename\E")