# Dial the extension
$astman->connect || die $astman->error . "\n";
if ($ansage eq "Ansage1") {
     print STDERR $astman->sendcommand(
           Action => 'Command',
           Command => 'Dial 1$vorwahl$nummer@pno',);
           }