#!/usr/bin/perl

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

$result = SmartbitsSocketLink();