Select Code to Download

use IPC::Run 'run';
my $file = $ARGV[0] || die;
...
#    ...
    $_ eq '[/STREAM]' && defined $width && defined $height && print "$
+{width}x${height}\n" && last
}