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

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