#!/usr/bin/perl


$file = '/home/user/dir';

print "Enter filename to search\n";
chomp ($file = <STDIN>);


if (-e $file)
{
        die "File already Exists!\n";
}
unless (-e $file)
{
        @appfiles = glob "*";
        open(@appfiles, '>>/home/user/dir');
        print "List of all the files in the directory:\n";
        print "@appfiles\n";

}
close(@appfiles);