use strict;
       use warnings;
       use POSIX qw(strftime);
       print ("enter file name");

     my $filename =<STDIN>;
     print $filename;


    if(-d $filename)

    {
     warn "File is direcrtory\n";

     $filename = strftime "foo.%Y%m%d-%H%M%S.txt", localtime;
     print "A good filename could be '$filename'";
    }
    else
    {
    print "File is not a directory";
     #Check if file is already existing #
       if(-e $filename)

    #Overwriting an already existing file #
        {
           open(NEWFH,">$filename") || die "$filename: $!";
        }
    }