#!/usr/bin/perl -w
use
Finance::Bank::TB;
$mid
=
'007'
;
$key
=
'JimiBond'
;
my
$tb_obj
= Finance::Bank::TB->new(
$mid
,
$key
);
$vs
=
'3350078'
;
$amt
=
'516'
;
$tb_obj
->configure(
cs
=>
'0308'
,
vs
=>
$vs
,
amt
=>
$amt
,
rurl
=>
$rurl
,
rsms
=>
'903666666'
,
desc
=>
'Example_Description'
,
rem
=>
'kozo@pobox.sk'
,
);
$tb_obj
->pay_link(
"tatra"
);