#!/usr/bin/perl -w


use diagnostics;
#use strict;
use IO::Handle;

STDOUT->autoflush(1);

print(STDERR "TAR START...\n");
system("tar -cmvzf /tmp/mp3.tgz /home/op/mp3");
print(STDERR "TAR END.\n");