#!/usr/bin/perl

print "Content-type: text/plain\n\n";
system("quota");

exit(0);