#!/sw/bin/perl

use strict;
use warnings;

my $prompt = '_I_am_Dracula__';
system("perl -MCPAN -e 'CPAN::shell($prompt)'");