#!/usr/sup/gnu/bin/perl

=head1 NAME

pack - Program to pack strings into binary representation.

=head1 SYNOPSIS

B<pack> I<format> [ I<file> ... ]

=head1 DESCRIPTION

B<pack> will pack the arguments into a binary string according to I<format>. 
If no files are supplied, the standard input will be used.
The arguments are just fed to Perl's internal B<pack> command.

=head1 AUTHOR

Mats Kindahl @ DoCS (Uppsala University)

=head1 SEE ALSO

perl(1)

=cut

$fmt = shift;
print pack($fmt,@ARGV ? @ARGV : <>);