1#!/bin/perl
2
3use strict;
4
5if( @ARGV != 1 )
6{
7	print STDERR "packtlf [sample.tlf]\n";
8	exit 1;
9}
10
11my $me = $0;
12my $packnlf = $me;
13$packnlf =~ s/packtlf$/packnlf/;
14
15exit system "gawk -f $packnlf $ARGV[0]";
16