$|=1;    					
$stapl = shift; 
$serial = shift;