Select Code to Download

Declare Function sqr Lib "sqrw.dll" (ByVal sString As String) As Integ
+er
Declare Function sqrend Lib "sqrw.dll" () As Integer
...
'   Make sure you call sqrend after you're done

end sub

use warnings;
...
$return = $sqrend->Call();

warn $return if $return;