host:/usr/local/smartbits\_# tclsh
% source "smb.tcl"
# NO ERRORS HERE
% exit

##</code><code>##

#!/usr/bin/perl

use Inline Tcl => <<END;
source "smb.tcl"
END

my $result = SmartbitsSocketLink("1.1.1.1");