#!/usr/bin/perl
open(DBFILE,"<Y:\\tsweb.log")|| die;
while ($line=<DBFILE>) {
  chomp $line;
  if ($line =~ m/|/) {
      $myline = $line;
   }
}
($TimeandDateStamp, $ip, $appid, $apppath, $extra) = split(/\|/, $myline);
system "start /max /w $apppath";
system "logoff";
exit;

##</code><code>##

system "start /max /w $apppath";
system "logoff";