#!/usr/bin/perl5.8.4
#  Security Auditor's Research Assistant (SARA)
#  Developed by the Advanced Research Corporation (r)
#  Provides script for IE launch for SARA interactive mode
#  1.0  21 May 2002  toddr
#
$args=$ARGV[0];
$osascript = osascript;
open(OSASCRIPT, "$osascript  <<EOF
property target_URL: \"$args\"
open location target_URL
EOF |") || die "cannot run $osascript";
sleep 60;
@tmp=`ps -aux`;
@pid = grep(/Internet Explorer/,@tmp);
while (@pid) {
  sleep 5;
  @tmp=`ps -aux`;
  @pid = grep(/Internet Explorer/,@tmp);
}
