Shell Programming and Scripting

if ($securityToken) {
    print "$securityToken\n";
} else {
    print "$content\n";
}

./script.pl | gunzip -

use IO::Uncompress::Gunzip 'gunzip';
...

my $content = $ua->get("$url/index.php")->content;
my $gunzipped;
gunzip \$content => \$gunzipped;
$content = $gunzipped;
my $input = $1 if $content =~ /(<input.*?securitytoken.*?>)/m;
my $securityToken = $1 if $input =~ /value="(.*?)"/;
if ($securityToken) {
    print "$securityToken\n";
} else {
    print "$content\n";
}