A webserver to process files through Slic3r

gistfile1.pl

#!/usr/bin/perl

use Dancer;
use File::Slurp qw(read_file);
use File::Temp qw(tempfile);

post '/slice' => sub {
    if (my $upload = upload 'stl') {
        my (undef, $tmp) = tempfile();
        system qw(/path/to/slic3r.pl --load /path/to/config.ini), $upload->tempname, qw(-o), $tmp
            and return status 500;
        content_type 'text/plain';
        return read_file($tmp);
    }
};

dance;