#!/usr/bin/perl
use warnings;
use strict;

my $dir = '.';

system ('tar', '-zcvf', 'my_tarball.tgz', $dir);