Select Code to Download

#!/usr/bin/env perl
use warnings;
...
my $ieeeaddr = 20;
system('GPIBSHOT.EXE','/HIDE',"/$ieeeaddr",'/COLOR','/NAME=IMG1',
    '/SCREEN','/NAME=DAT1','/TRACE2','/END');