#!/usr/bin/perl -w
use
Finance::Bank::TB;
$mid
=
'9999'
;
$key
=
'12345678'
;
my
$tb_obj
= Finance::Bank::TB->new(
$mid
,
$key
);
$vs
=
'1111'
;
$amt
=
'1234.50'
;
$tb_obj
->configure(
cs
=>
'0308'
,
vs
=>
$vs
,
amt
=>
$amt
,
rurl
=>
$rurl
,
rsms
=>
'903666666'
,
desc
=>
'Example_Description'
,
rem
=>
'kozo@pobox.sk'
,
);
$tb_obj
->pay_form(
"TatraPay"
,1);
#print "OFFIC: initStr: 99991234.5070311110308https://moja.tatrabanka.sk/cgi-bin/e-commerce/start/example.jsp\n";
#print "DEBUG: initStr: $tb_obj->{'initstr'}\n";