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

use IPC::System::Simple;

my $savedir = foldername;
system('GPIBShot.EXE','/HIDE','/12','/COLOR',"/NAME=$savedir/TEST1",'/SCREEN');