or download this
burak@ubuntu:~$ perl -wle 'print qq{plain!\n} if -f q{sysinfo.pl} && !
+ -l _; print qq{FooBar\n}'
FooBar
...
Complete documentation for Perl, including FAQ lists, should be found
+on
this system using "man perl" or "perldoc perl". If you have access to
+ the
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.