#!/usr/bin/perl -w
use strict;
my $prog = "c:\\program files\\agent\\agent.bat";

if (-f $prog)   # does it exist?
{
    system("cmd.exe", "/C", $prog);
}
else  # if not, let's see its name after escaping "\"s
{
    warn "batch file ($prog) not found!\n";
}