Select Code to Download

Net::FTP=GLOB(0x919f390)<<< 150 Opening ASCII mode data connection for
+ file list
Net::FTP=GLOB(0x919f390)<<< 226 Transfer complete
to_kill is /images/brick5/jm2.jpg
...
killed were brick1.html brick2.html brick3.html brick4.html brick5.htm
+l /images/brick1/jm2.jpg /images/brick1/photo 1.JPG /images/brick1/ph
+oto 2.JPG /images/brick1/s.jpg brick1 /images/brick2/jm2.jpg /images/
+brick2/photo 1.JPG /images/brick2/photo 2.JPG /images/brick2/s.jpg br
+ick2 /images/brick3/jm2.jpg /images/brick3/photo 1.JPG /images/brick3
+/photo 2.JPG /images/brick3/s.jpg brick3 /images/brick4/jm2.jpg /imag
+es/brick4/photo 1.JPG /images/brick4/photo 2.JPG /images/brick4/s.jpg
+ brick4 /images/brick5/jm2.jpg /images/brick5/photo 1.JPG /images/bri
+ck5/photo 2.JPG /images/brick5/s.jpg brick5 /css/brick1.css 
$

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

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

  return \@killed_files;
}