1#! /usr/bin/perl
2
3# minimal script to create packing-lists from scratch
4use strict;
5use warnings;
6
7print "\@owner ", (getpwuid $<)[0], "\n";
8print "\@group ", (getgrgid $()[0], "\n";
9for my $i (@ARGV) {
10	print $i, "\n";
11}
12