#!/usr/bin/perl
# take textile text as stdin and output as html
# textile.psh < filename.html
# :%!textile.psh  (in vim)
use Text::Textile qw(textile);
my $text = "";
while (<>) {
 $text .= $_;
}
# procedural usage
my $html = textile($text);
print $html;
# OOP usage
#    my $textile = new Text::Textile;
#    $html = $textile->process($text);
#    print $html;