#!/usr/bin/perl use strict; use Syntax::Highlight::Shell; my $content = ''; my $file = shift; open(FILE, '<'.$file) or die "can't read '$file': $!"; { local $/ = undef; $content = ; } my $highlighter = new Syntax::Highlight::Shell nnn => 1; print <<'HEAD', $highlighter->parse($content), <<'BOTTOM'; Syntax::Highlight::Shell HEAD BOTTOM