Select Code to Download

$VAR1 = bless( [
                 [
...
                   '-statustext' => '200'
                 }
               ], 'Opsware::NAS::Client::Result' );

#!/usr/bin/perl
use Getopt::Long;
...
print "\n\n\rStatus: Done!\n\n";

exit(0);