#!/usr/bin/perl -T use CGI; use Cache::FileCache; use strict; my $cache = Cache::FileCache->new( { cache_root => '/tmp', namespace => 'FCMB-Faker' } ); my $cgi = CGI->new; my %transaction = map { $_ => ($cgi->param($_) || '') } qw( mercId currCode amt orderId prod email ); my $reference = sprintf('%06d%04d', $transaction{mercId}, int(rand(10000))); $transaction{reference} = $reference; $transaction{status} = 2; #pending $cache->set($reference, \%transaction); my $content = qq! Not FCMB Web Payment

Confirm your payment

Order #!.$transaction{orderId}.qq!
Product!.$transaction{prod}.qq!
Amount !.$transaction{amt}.qq!
First Name
Last Name

!; print $cgi->header('text/html', 'Content-Length' => length($content)); print $content;