Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $command = "firefox $linkurl";
if(fork() == 0){ exec ($command) }

#!/usr/bin/perl
use Tk;
...
  
MainLoop;