Select Code to Download

package Demo1;

...
}

1;

package Demo2;

...
};

1;

#!/usr/bin/perl
...
print "\$SUCCESS: $SUCCESS\n";

exit;

Bareword "SUCCESS" not allowed while "strict subs" in use at ./demo.pl
+ line 9.
Execution of ./demo.pl aborted due to compilation errors.

#!/usr/bin/perl

...
print "\$SUCCESS: $SUCCESS\n";

exit;

SUCCESS: 0
$SUCCESS: 1