#!/usr/bin/perl

$pm="word.pm";
$srv=srv;
$src="D:/Tivoli/bin/lcf_bundle.43100/bin/w32-ix86/inv/SCAN/";
$dst="C:/wansupp";
$file=binfile;
$tmpfile="D:/Tivoli/custom/bin/binfile.txt";
$cmd="wspmvdata -s $srv -P sp:$src -t  \@$line -P tp: $file";

## this works but I want to shorten the list to a few test endpoints
#@eplist=split(/\n/, `wlsendpts \@P1.pm | grep End | grep -v tcp3 | grep reg`);

@eplist=(1_reg1, 2_reg1, 3_reg1);

open(DATA, "<$tmpfile") or die "Can't open data";
@eplist = <DATA>;
close (DATA);

}