Select Code to Download

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

my $newstatus $status; //Just be able to access the variable with data
print $newstatus;