Select Code to Download

    $stack = newitem;

    $top = $stack;

sub TIESCALAR {
    return unless $_[1] =~ /[fl]i[fl]o/i;
    my $stack = $_[1] =~ /([fl])i\1o/i;
)   return bless [$stack,[]], $_[0];
}

    if ($_[0]->[0]) {