Select Code to Download

use strict;
use warnings;
...
my $y = 'hello';

print $x . $y; # outputs hello

# dualvar.pl
package DualVar;
...
# Outputs:
# ok 1
# ok 2