#!/usr/bin/perl

use strict;
use warnings;

use Lingua::StopWords qw(getStopWords);

my %found;

my $src = '/home/aleksandra/programu-testavimas/1-dk/trunk/tests/inputs/test.txt';
my $des = '/home/aleksandra/programu-testavimas/1-dk/trunk/tests/outputs/out.txt';

open(SRC,'<',$src) or die $!;
open(DES,'>',$des) or die $!;
my $stopwords = getStopWords('en');
while( my $line = <SRC>){
    ++$found{$_} for grep { !$stopwords->{$_} }
            split /\s+/, lc $line;
}
print DES $_, "\t\t", $found{$_}, $/ for sort keys %found;

close(SRC);
close(DES);