#!/usr/bin/perl -w
use strict;
use File::Spec;
my $prog = File::Spec->catfile('program files', 'agent', 'agent.bat');
system($prog);