Select Code to Download

print $scalar1 .= $scalar2;

my $arg = 1;
someMutator( $arg );
print $arg;

print someMutator( 1 );

my $widget = Tk::SomeWidget->new( ... );
$widget->Add( ... );
$widget->pack( ... );

my $widget = Tk::SomeWidget->new( 
    ... 
)->Add(
   ...
)->pack( ... );