#!/usr/bin/perl

use warnings;
use strict;

# ---------

my $file = shift;

if($file =~ /\.(p[ml]|t)$/i)
{
	system "/usr/local/bin/perltidy -html -st -ntoc -npod -pre -nssc -nnn"
}
else
{
	system "cat -n";
}