#!/usr/bin/perl


$foo = 5;
$f=0;
while($f<$foo)
{
`echo "1234567890" > /dev/selectmap1`;
`head -c11 /dev/selectmap2 >> transcript`;
`echo '\n' >> transcript`;
$f = $f+1;
}