#!/usr/bin/perl

my $file = shift;
die unless $file;

print `curl -X POST -q --data-urlencode "update\@$file" http://localhost:8000/update/`