Select Code to Download

use File::Temp qw( );

...
...

$tmpdir->unlink_on_destroy( 1 ) if $success;

$ tt() {
   perl -e'
...

$ t 1
Cleaned