#!/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