Select Code to Download

use File::Path qw( remove_tree );
use File::Temp qw( tempdir );
...
...

remove_tree( $tmpdir ) if $success;

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

$ t 1
Cleaned