sub mycheck {
   my $db = shift || "";
}
# or
sub mycheck2 {
   my $db = @_ ? $_[0] : "";
}