Select Code to Download

#!/usr/bin/perl -w
use strict;
use 5.010;
...
my @killed = @$rptr;
say "killed were @killed ";
__END__

sub kill_files {
  use Net::FTP;
  use 5.010;
...

  return \@killed_files;
}

Net::FTP=GLOB(0x92dc200)>>> DELE /images/potato1/.
Net::FTP=GLOB(0x92dc200)<<< 550 /images/potato1/.: Is a directory
Net::FTP=GLOB(0x92dc200)>>> RMD /images/potato1/.
Net::FTP=GLOB(0x92dc200)<<< 550 /images/potato1/.: Directory not empty