[perl #93990] test script

gistfile1.pl

#!/usr/bin/env perl
#
# run as:
#  $ perl this_script.pl | perl
#
# [perl #93990]

use B::Deparse;

$dp = B::Deparse->new();
print $dp->coderef2text(
    sub {
        @, = "foo";
        print "@{,} bar";
    }
), "\n";