#!/usr/bin/perl -w print `date`; print `dfs`; print `date1`;