Select Code to Download

USER:
  while ( $pointer = $sth->fetchrow_hashref ) {
...
    print "Directory '$userdirectory' to be deleted\n";
    File::Path::rmtree( $userdirectory );
  }

#!/usr/bin/perl
use strict;
...
  # Return a list of the first column of each row.
  return map { $_->[0] } @{ $all_rows_aref };
}