Plugin Generater

#!/usr/bin/perl
# by Mr_AnarShi-T

use WWW::Mechanize;
use strict;
no warnings;

print "[*] Do you Want to Generate plugin list [Y/N] : ";
my $reponse = <>;
chomp ($reponse);
if ($reponse eq 'Y'){
print"\n\n[*] Generating plugins plz wait ...";
&Makelist;
}
else {if ($reponse eq 'N'){
print"\n[*] Ok! As you like ;)\n\n";
exit;
} }
sub Makelist {
        print"\n[*] Ok! Enter Plugins output : ";
        my $output = <>;
        chomp ($output);
        my $ex = WWW::Mechanize->new();
        $ex->get('http://plugins.svn.wordpress.org/');
        my @plugins;
        @plugins = $ex->links;
        my $del = scalar(@plugins);
        delete $plugins[$del-1];
        open(FF, ">>$output") || die($!);
        print FF $_->text."\n" foreach(@plugins);
        close(FF);
        $del--;
        print '[+] '.$del.' Saved plugins in '.$output."\n";
}