#!/usr/bin/perl -w
use strict;
use Debug1;
my $prompt = 'Try first "D;S" and then "D; D; S" '.
'(press <CR><CTRL-D> to finish): ';
Debug1->main($prompt);
#!/usr/bin/perl -w
use strict;
use Debug1;
my $prompt = 'Try first "D;S" and then "D; D; S" '.
'(press <CR><CTRL-D> to finish): ';
Debug1->main($prompt);