in reply to how to make this perl code run

> (without mucking with strict.pm or adding command line options or using non-standard perl versons).

and actually really executing the code! =)

#!/usr/bin/perl -w
use strict;
my $str1 = hi;
my $str2 = hello;
my $str3 = hola;

print uc("$str1, $str2, $str3 you ... ! ;-)");

BEGIN {
  open my $file,"<",$0;
  my $code=do{local $/=undef;<$file>};
  $code =~ s/use strict;//;
  $code =~ s/^BEGIN.*\E//sm;
  
  no strict "subs";
  no warnings;
  eval "$code" or die $@;
  
  exit;
}
#EOF

[download]

prints HI, HELLO, HOLA YOU ... ! ;-)

Cheers Rolf

( addicted to the Perl Programming Language)

update

changed output to less sarcasm

In Section Seekers of Perl Wisdom