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

use IPC::System::Simple 'system';

my $ieeeaddr = 20;
system('GPIBSHOT.EXE','/HIDE',"/$ieeeaddr",'/COLOR','/NAME=IMG1',
	'/SCREEN','/NAME=DAT1','/TRACE2','/END');