set str to do shell script "perl -e '
    use Data::Dumper;
    print Dumper(\\%ENV);
'"
display dialog str buttons ["Ok"] default button 1

open inline-perl in the applescript editor