path: root/debian/perl-framework/t/htdocs/modules/ext_filter/eval-cmd.pl.PL

use strict;

$| = 1;

my $cmd = shift;
do {eval $cmd; print } while <>;