#! /usr/bin/perl
use strict;
use warnings;

my %use;
while (<>) {
	/^\s*(?:use|require)\s+([\w:.]+)\b/ or next;
	$use{$1}=1;
	}
print "perl -MCPAN -e 'install qw()'\n";
print "$_\n" for sort keys(%use);