Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. $^S
if ($^S) {
    print "Inside eval.\n";
} else {
    print "Outside eval.\n";
}
eval {
    if ($^S) {
        print "Inside eval.\n";
    } else {
        print "Outside eval.\n";
    }
}