#!/usr/bin/perl -w
use strict;
use 5.010;
use lib "template_stuff";
use html2;
use Net::FTP;

say "What keyword would you like to delete?";
my $word = <>;
chomp $word;
say "Delete everything associated with  $word? (Y for yes)";
my $answer = <>;
chomp $answer;
die unless ( $answer eq 'Y' or 'y' );

# main data structure
my %vars = (
  word  => $word,
  page  => 'pages',
  image => 'images',
  css   => 'css',
);
my $rvars  = \%vars;
my $rftp   = get_ftp_object();
my $rfiles = get_html_filenames( $rftp, $rvars );
my $rptr   = kill_files( $rftp, $rvars, $rfiles );
my @killed = @$rptr;
say "killed were @killed ";
__END__