#!/perl/bin/perl.exe -w

use strict;

my $username = 'zacko';
my $password = 'zakar12as';
my $database = 'smash';

open(SELECT,qq{mysql -u root -p$password $database -e
"SELECT * from users" |}) or die $!;

my @results = <SELECT>;
close SELECT;

print @results;