#! /usr/bin/perl

use strict;
use warnings;
use File::Path;
use File::Copy;
use Cwd;

print "Your Input: ";
chomp(my $filename = <STDIN>);
my $dir = getcwd;
my $backupdir = 'backup_files';
my $back = $filename . ".bak";
my $backful = $dir . "/" . $backupdir . "/" . $back;

print "\$dir is: $dir\n";
print "\$filename is: $filename\n";
print "\$backupdir is: $backupdir\n";
print "\$back is: $back\n";
print "\$backful is: $backful\n";


unless (-e $backupdir) {
  mkpath($backupdir);
  }
if (-e $backupdir) {
  if (-d $backupdir) {
    opendir (DIR, $backupdir) or die $!;
    my @files = readdir DIR;
    print "\@files is: \n";
    foreach (@files) {
      print $_, "\n";
      }
    if (grep {$back} @files) {
      print "Backup copy of $filename exists!\n";
      }
    else {
      copy ($filename, $backful); 
      print "Backup copy of the file has been created\n";
      }
    }
  else {
    print "\$backupdir exists, but it is not a directory\n";
    }
  }