Select Code to Download

my ($hash_ref) = @_;

my $hash_ref = shift;

Not enough arguments for connect at C:\perm\dev\monk.pl line 15, near 
+"$handle)"

Can't use string ("1") as a HASH ref while "strict refs" in use at C:\
+perm\dev\monk.pl line 16.

#!/usr/bin/perl

...

sub makeDBconnection{
}