#!/usr/bin/perl -w
use strict;
use vars qw($temp $read);
$temp=$ARGV[0];
if($temp = $ARGV[0]){ &go }
else { &err }


########
sub go {
########

     print
     "\nDo you want to remove this file completely? Or Put it in a temp dir?\n";
     print "(c for Completely t to Archive):";
     chomp($read=<STDIN>);
     if($read =~ m/^[tT]/){ system("mv", "$temp","/var/tmp/deftemp") || warn "Error : $!" }
     else { &go2 }
}
#########
sub go2 {
#########

     if($read =~ m/^[cC]/){ system("rm","-R", "$temp") }
     else { &err }

}
#########
sub err {
#########

     print "Invalid Input!\n";

}

exit 0;