#!/usr/bin/perl -w use strict; use DebugLookForward; my $prompt = 'Try first "D;S" and then "D; D; S" '. '(press to finish): '; push @ARGV, '-noslurp'; DebugLookForward->main($prompt);