I think Larry Wall created this as sort of a joke, but you can do:

use Shell;
&cp qw( tmp/* . );
&cat qw( tmp/* );
&rm qw( -rf tmp );
[download]