Select Code to Download

open INFILE,'<$name'  || warn ("Cannot open input file $name\n");

open INFILE, ( '<$name' || warn ("Cannot open input file $name\n") );

open INFILE, '<$name'

open(INFILE, '<$name')
   || warn ("Cannot open input file $name\n");

open INFILE, '<$name'
   or warn ("Cannot open input file $name\n");

open(INFILE, "<$name")
   or warn ("Cannot open input file $name\n");

open(INFILE, '<', $name)
   or warn("Cannot open input file $name: $!\n");

open(INFILE, '<', $File::Find::name)
   or warn("Cannot open input file $File::Find::name: $!\n");

"$directory\$name"

"$directory\\$name"

"$directory/$name"