FTS CPartition Virtual 1.0

Código:

#!/usr/bin/perl
#by hacker fts315

use Tk;

$janela = MainWindow->new;

$janela->title("by fts315");
$janela->geometry("190x360");

#slogan
$label1 = $janela->Label(-text=>"FTS CPartition Virtual v1.0",-fg=>"red")->pack;

#nome
$label2 = $janela->Label(-text=>"nome:")->pack(-anchor=>"w");
$entry2 = $janela->Entry(-text=>"pvirtual")->pack(-anchor=>"w");

#local onde salvar
$label3 = $janela->Label(-text=>"local:")->pack(-anchor=>"w");
$entry3 = $janela->Entry(-text=>"/home")->pack(-anchor=>"w");

#formato
$label8 = $janela->Label(-text=>"Formato:")->pack(-anchor=>"w");
$entry8 = $janela->Entry(-text=>"ext2")->pack(-anchor=>"w");

#faixa
$label4 = $janela->Label(-text=>"faixa:")->pack(-anchor=>"w");
$entry4 = $janela->Entry(-text=>"1024")->pack(-anchor=>"w");

#tamanho
$label7 = $janela->Label(-text=>"tamanho mb:")->pack(-anchor=>"w");
$entry6 = $janela->Entry(-text=>"100")->pack(-anchor=>"w");

#montar
#$check1 = $janela->Checkbutton(-text=>"Deseja montar ela?")->pack;
#$label5 = $janela->Label(-text=>"Pasta para montar:")->pack(-anchor=>"w");
#$entry5 = $janela->Entry(-text=>"")->pack(-anchor=>"w");

$button1 = $janela->Button(-text=>"criar",-command=>\&fts_copiar)->pack;


MainLoop;

sub fts_copiar
{
   $localc = $entry3->get . "/" . $entry2->get;
   $tam = $entry4->get * $entry6->get;
   system("dd if=/dev/zero of=" . $localc . " bs=" . $entry4->get ." count=" . $tam);
   system("mkfs -t " . $entry8->get . " " . $localc);
}


Que S.O. é esse?