Köszi, javítottam a &menu(); és már elsőre megy. :)
Már csak ezzel van baja:
sub connect() {
my $dsn = "dbi:mysql:$database:$host"; ## Data Source Name
my $connect = DBI->connect($dsn, $user, $pw) or die " [ HIBA ]";
}
sub select() {
my $query_handle = $main::connect->prepare($myquery);
$query_handle->execute();
}