sub kill_files {
  use Net::FTP;
  use 5.010;
  use Path::Class;
  my ( $ftp, $rvars, $rfiles ) = @_;
  my %vars  = %$rvars;
  my @files = @$rfiles;
  my @killed_files;

  # kill html files
  for my $html (@files) {
    my $obj = file( '', $vars{page}, $html );
    my $string = $obj->stringify;
    say "string is $string";

    my $return = $ftp->delete($string);
    if ($return) {
      push( @killed_files, $html );
    }
  }

  # chop off ending
  foreach (@files) {
    $_ =~ s/\.html//;
  }
  say "now files are @files";

  # kill image directories
  for my $dir (@files) {
    my $obj = dir( '', $vars{image}, $dir );
    my $string = $obj->stringify;
    say "string is $string";

    my $return = $ftp->rmdir($string,1);
    if ($return) {
      push( @killed_files, $dir );
    }
  }

  # kill css file
  my $css_obj = file( '', $vars{css}, $vars{word} . '1.css' );
  my $string = $css_obj->stringify;
  say "string is $string";

  my $return = $ftp->delete($string);
  if ($return) {
    push( @killed_files, $html );
  }

  return \@killed_files;
}