#!/usr/bin/perl

# Coded by Trizen
# Email: echo dHJpemVueEBnbWFpbC5jb20K | base64 -d
# Website: http://trizen.go.ro

unless ($ARGV[0]) {
    die "\nUsage: $0 [pkgname] [pkgname] [...]\n\n";
}

require LWP::UserAgent;
my $lwp = 'LWP::UserAgent'->new;

foreach $pkgname (@ARGV) {
    my $connect =
      $lwp->get(  'http://aur.archlinux.org/packages/'
                . substr($pkgname, 0, 2)
                . "/$pkgname/PKGBUILD");
    unless ($connect->content =~ /404 - Not Found/) {
        print $connect->content;
        print "\n\n";
    }
}