Select Code to Download

use v5.12;                              # enable say & strict
use warnings;
...

    say "AF","TER"
}

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/tie_handle.pl 
$_
...
$a[1]
$a[2]
AFTER