Well it just sits there cause this:

    while (<>)
[download]

will wait for input from STDIN. So it's just sitting there waiting for input. If you just want the last word in that sample, this should do it:

  my $sample = 'sample/fresh/fresh/0/pineapple';
  my $word = $sample;
  $word =~ s/.*\///;
[download]