#!/usr/bin/perl

use strict;

print "   $0 must be followed by xphi program name\n" unless @ARGV == 1;
my $prog = shift @ARGV;
print "   Cannot read $prog\n" unless -r $prog;
system("ddd --host root\@mic0 --no-exec-window --debugger gdb $prog");

