`echo "#!/usr/bin/env perl -e 'system \"\$(which touch) $file\"'" > tmp.pl`;
system './tmp.pl';