Select Code to Download

$VAR1 = {
          'appname' => 'IPT(957)',
...
          'remedy_queue' => 'Global Service Desk',
          'appname' => 'Instant Messaging - Lync External(2667)'
        };

##!/usr/bin/perl                        
use warnings;
...

# my $lwp = LWP::UserAgent->new;
# $lwp->request( $req );