#!/usr/bin/perl

# Pass in a list of shell commands, 1 per line, and we pause after each
# Good for demos where you want to show something line by line but don't
# want to type

# Public Domain
# Jason E. Holt

$|=1;

while(<>) {
	chomp;
	print("\nroot\@c3po# $_");
	$foo = <stdin>;
	system($_);
}