makotoworld

#!/usr/bin/perl;
#DB.pm
package DB;
use DBIx::Skinny connect_info => +{
    dsn      => 'dbi:mysql:deafnews:localhost',
    username => 'root',
    password => 'password',
    connect_options => +{
        RaiseError => 1,
        PrintError => 0,

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Say;
use Data::Dumper;

use LWP::UserAgent;
use XML::Simple;

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use WebService::Simple;
use WebService::Simple::Parser::JSON;
use Perl6::Say;
use Data::Dumper;
use Encode;

makotoworld

#!/usr/bin/perl
use strict;
use warnings;
use Imager;

my $filename = shift;
my $img      = Imager->new;

$img->read( file => $filename ) or die $img->errstr;
$img->filter( type => 'contrast', intensity => 1.3 );

makotoworld

#!/usr/bin/perl

use strict;
use warnings;

use Perl6::Say;
use Data::Dumper;

use DateTime;
use LWP::UserAgent;

makotoworld

#!usr/bin/perl

use Perl6::Say;
use Data::Dumper;

my %hash = ('makoto' => 'perl',
    'nozaki' => {});

sub push_hash{
    my %hash = @_;

makotoworld

We couldn’t find that file to show.