use strict; 
use warnings;  
 
open my $f, '<', 'tp_list.txt' or die "Cannot open tp_list.txt\n"; 
local $/ = undef; 
my @set = split /\s/, <$f>; 
close $f; 
for my $tp (@set) { 
    system(  
 
        "tp addtobuffer $tp client=100 pf=E:\\usr\\sap\\trans\\bin\\TP+DOMAIN_PSE.PFL" 
    ) 
    and die "Transport $tp has ended in error\n"; 
}