#! /usr/bin/perl
use v5.16.3;
use strict;
use warnings;

####
#  Program works like rm function for just one file
#  11/20/19
#
####


   print "Please enter the files to be removed: \n";
   chomp(my @removed_files = <STDIN>);

   foreach (@ARGV) {
      unlink $_ or warn "Cant unlink '$_': $!, continuing ... \n";
   }