Declare Function sqr Lib "sqrw.dll" (ByVal sString As String) As Integer
Declare Function sqrend Lib "sqrw.dll" () As Integer

private sub SQR_Procedure
    dim nResult as integer
    dim sString as string
    sString = sTempPath & "Temp.SQR <put your dblogon info here>
-E<filename of error listing goes here> -M<allmaxes.max directory goes
here> -O<error log directory goes here -XCB -ZMF<sqrerr.dat directory
goes here>"
    nResult = sqr(sString)
    nResult = sqrend()
'   Make sure you call sqrend after you're done

end sub

##</code><code>##


use warnings;
use strict;
use Win32::API;

my $sqr = new Win32::API->( 'sqrwt', 'sqrt', 'P', 'N' ) || die $!;
my $sqrend = new Win32::API->('sqrwt', 'sqrend', '', 'N' ) || die $!;

my $return = $sqr->Call( "Db_info.sqt USERNAME/PASSWORD@DBNAME -XCB -Etest.err");

warn $return if $return;

$return = $sqrend->Call();

warn $return if $return;