use strict;
use Expect;
my $exp = Expect->spawn("cpan -i AMF::Perl Crypt::GeneratePassword Date::Manip") or die "Cannot spawn ssh: $!\n";
	$exp->expect(
		undef,
		[qr/\[.*?\]/ =>
				sub {
					my $fh = shift;
					print "\n[[AUTO-ENTER]]\n";
					$fh->send( "\n");
					exp_continue;
				}
		],
	);

##</code><code>##

    SWF::File [requires]
    Readonly [requires]
    List::MoreUtils [requires]
[[AUTO-ENTER]]

[[AUTO-ENTER]]

[[AUTO-ENTER]]