my $sqlsrv=Win32::SqlServer::sql_init(
    '*Deleted*','*Params*','*For*','*Security*'
);

sub GetData{

    my $batch=<<SQLEND;
    SELECT firstname, lastname, status
    FROM *Now I'm just being paranoid*
    WHERE status is NOT NULL
SQLEND

    my $result=$sqlsrv->sql($batch);
    return $result
}

...
END{ 
    $sqlsrv->disconnect;
}