#!/bin/perl
open(F,"shadow");
open(FH,"head");
open(F1,">passwd");
open(F2,">access");
while(<FH>){
	print F2 $_;
}
close(FH);
while(<F>){
	@data = split(/:/,$_);
	print F2 "require user @data[0]\n";
	print F1 "@data[0]:@data[1]\n";
}
print F2 "</Limit>\n";
close(FH);
close(F1);
close(F2);
