#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use M;

my $schema = M->connect('dbi:mysql:voting','root','secret');
my @users = $schema->resultset('User')->all();

foreach my $user (@users) {
  print $user->username . ' - ' . $user->password . "\n";
}