# Each step consists of an operator and argument.
#
# It supports the following operators:
-# out <word> : echo <word> to stdout
+# out <word> : echo <word> to stdout with a newline
+# raw <word> : echo <word> to stdout without adding anything
# file <word> : echo <word> to stdout AND create the file <word>
# dir <word> : echo <word> to stdout AND create the directory <word>
# rm <word> : echo <word> to stdout AND delete the file/directory <word>
$| = 1;
my $quiet = 0;
-my $timeout = 4;
+my $timeout = 10;
sub op {
my ($op, $nm) = @_;
print "$nm\n";
return 1;
}
+ if ($op eq 'raw') {
+ print "$nm";
+ return 1;
+ }
# Show the output before creating the file
if ($op eq 'file') {