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