use strict;
use Tk;
use Win32::Process;
my $process;

my $mw = MainWindow->new;
$mw->Button(
  -text => "Open Adobe",
  -command => \&openAdobe
)->pack;

MainLoop;

sub openAdobe
{
   Win32::Process::Create(
      $process,
      "C:\\Program Files\\Adobe\\Acrobat 6.0\\Reader\\AcroRd32.exe",
      "/n /s my.pdf",
      0,
      DETACHED_PROCESS,
      ".");
}