sub mydebug
{
  $msg = shift;
  print STDERR 'Line '. $linethatcalledme .": $msg\n";
}