Select Code to Download

my $a;
for( $a=1; $a<100000001; $a=$a+1 ) {
$t = $t + $a;
}
print $t;

Declare Sub o2_asmo Lib "thinbasic_oxygen.dll" (ByVal s As String)
Declare Sub o2_basic Lib "thinbasic_oxygen.dll" (ByVal s As String)
...
Declare Function o2_prep Lib "thinbasic_oxygen.dll" (ByVal srcBSTR As 
+String) As String
Declare Sub o2_put Lib "thinbasic_oxygen.dll" Alias "o2_buf" (ByVal c 
+As String)
Declare Function o2_view Lib "thinbasic_oxygen.dll" (ByVal srcBSTR As 
+String) As String

Private Sub Command1_Click()
Dim src As String
...
o2_exec

End Sub

#! perl -slw
use Win32::API;
...
$o2basic->Call( $src ); #gives an error here
#what should i do here with o2exec ??:
#$o2exec->??;