BEGIN {
|;
}
END {
|;
}
unless (|) {
}
SWITCH: {
if (|) {
last SWITCH; }
if () {
last SWITCH; }
if () {
last SWITCH; }
}
for(|;;) {
}
foreach $x (|) {
}
while(|) {
}
do {
} while ();
do {
} until ();
until(|) {
}
open(FILEREAD, "|/path/to/file")|| die "cannot open: $!";
open(FILEWRITE, ">|/path/to/file")|| die "cannot open: $!";
open(FILEAPPEND, ">>|/path/to/file")|| die "cannot open: $!";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,
$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat ("|/path/to/file");
use |;
#!/usr/bin/perl
|
#!/usr/bin/perl -w
|
=head1 NAME
|#TODO Insert name of script
=head1 SYNOPSIS
#TODO Overview of script
=head1 DESCRIPTION
#TODO Write detailed description of script
=head1 AUTHOR
#TODO Insert author name
=head1 REVISION HISTORY
=cut