Select Code to Download

BEGIN {
     package mod;
...
     }
}
print checkMod;

C:\Documents and Settings\Owner\Desktop>perl -MO=Deparse,  consttest.p
+l & perl c
onsttest.pl
...
consttest.pl syntax OK
goodMod
C:\Documents and Settings\Owner\Desktop>

#!/usr/bin/perl -w
#COMMENTED OUT
#BEGIN {
...
     }
}
print checkMod;

C:\Documents and Settings\Owner\Desktop>perl -MO=Deparse,  consttest.p
+l & perl c
onsttest.pl
...
consttest.pl syntax OK
goodMod
C:\Documents and Settings\Owner\Desktop>

#!/usr/bin/perl -w
BEGIN {
...
     }
}
print checkMod;

C:\Documents and Settings\Owner\Desktop>perl -MO=Deparse,  consttest.p
+l & perl c
onsttest.pl
...
consttest.pl syntax OK
goodMod
C:\Documents and Settings\Owner\Desktop>

C:\Documents and Settings\Owner\Desktop>cat consttest.pl & echo: & ech
+o: & echo:
 & perl -MO=Deparse,  consttest.pl & perl consttest.pl
...
consttest.pl syntax OK
badMod
C:\Documents and Settings\Owner\Desktop>

C:\Documents and Settings\Owner\Desktop>cat consttest.pl & echo: & ech
+o: & echo:
 & perl -MO=Deparse,  consttest.pl & perl consttest.pl
...
consttest.pl syntax OK
goodMod
C:\Documents and Settings\Owner\Desktop>