Re: Finding oldest file in directory

[jdporter]

my $cmd = $^O =~ /Win32/ ? 'dir /od /b' : 'ls -1rt';
my( $file ) = qx( $cmd );
chomp $file;