i really need help on my script to make progressbar to work. progressbar in cgi web development. its the one which has given me hard time to figure out. every time i try it i get bad results. i need to have a working example to practice it more and more #!/usr/bin/perl -w use lib '.'; use strict; use warnings; use DBI; use CGI; use MIME::Lite; use CGI::Carp qw(fatalsToBrowser); my $q = new CGI(); my $host = "localhost"; my $usr = "root"; my $pwd = ""; my $dbname = "tbl_users"; my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, { AutoCommit => 0, RaiseError => 1, }) or die $DBI::errstr; my $sub = $q->param("sub"); my $msg = $q->param("msg"); my $success; if ($sub) { my $getemails = $dbh->prepare("SELECT DISTINCT EMAIL FROM USERS"); $getemails->execute(); my $dbemails = $getemails->fetchall_arrayref; my $emails = join ',',map{$_->[0]}@$dbemails; my $to = ''; my $from = 'noreplay@site.com'; my $subject = $sub; my $message = " $msg "; my $MSG = MIME::Lite->new( From => $from, To => $to, Bcc => $emails, Subject => $subject, Data => $message ); $MSG->send; $success = "mail was sent successfully"; } $dbh->disconnect || die "$DBI::errstr\n"; print "Content-type: text/html\n\n"; print < Mail Send

Mail My DB Customers

Send Mail
Percent: 0%