Select Code to Download

        my $e = eval( $p );

$stmt = qq(INSERT INTO ACCU_USAGE  VALUES ($Mobil ...
...
...
...
$rv = $dbh->do($stmt) or die $DBI::errstr;
...

my $sql = $dbh->prepare( q[ INSERT INTO ACCU_USAGE  VALUES( ?, ?, ?, ?
+, ?, ?, ?, ? ) ] ) 
    or die $DBI::errstr;

                    $rv = $sql->execute(
                        $MobileNumber,
...
                        $value->{'absoluteAccumulated'}->{'previousExp
+iryDate'}->{'time'},
                        $value->{'absoluteAccumulated'}->{'previousExp
+iryDate'}->{'volume'}
                    ) or die $DBI::errstr;

#!/usr/bin/perl
use Data::Dumper;
...
close(AH);
$dbh->commit();