any '/run' => sub {
        my $dest = '/var/local/testp/public/results';
        my ($fh,$filename) = tempfile();
        my $command = "/usr/bin/R -q --slave --vanilla < /var/local/testp/data/code.R > $filename && mv $filename $dest/${filename}\.html";
        my $proc1 = Proc::Background->new($command);
        my $htmlfile = "$dest" . "$filename" . '.html';
        open (my $hfh,">>",$htmlfile) or die "can\'t open file $htmlfile: $!\n";
        print $hfh "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5; URL=/results/${filename}\.html\">";
        print $hfh "waiting for \<a href=\"/results/${filename}\.html\"> results</a>";
        close $hfh;
        unlink ($fh);
        return redirect "/results/${filename}\.html";
};