#!/usr/bin/perl

#
# Coded by Victor Bittorf
#

system("status -quick");