#!/bin/perl -w
use
strict
;
# this is a simple shell script to tell if a given file exists
if
(
-e
$ARGV
[
0
])
{
print
(
<<__itsthere__
);
file exists:
$ARGV[0]
__itsthere__
exit
;
}
print
(
<<__notthere__
);
no such file or directory:
$ARGV[0]
__notthere__