Select Code to Download

open( L, ">$tar_file.input_list" );
print L "$_\n" for ( @srcfiles );
close L;

system( "tar czf $tar_file.gz -T $tar_file.input_list" );

system( "tar cf - -T $tar_file.input_list | gzip > $tar_file.gz" );