# XXX Buggy and susceptible to injection attacks.
open(my $cmd, "getfilesdata $file |")

# Fixed
open(my $cmd, '-|', 'getfilesdata', $file)