#!/usr/bin/perl

use strict;
use warnings;

use Win32::OLE;
use Data::Dumper;

my $objVFP = Win32::OLE->new('VisualFoxPro.Application') or die "oops\n";
$objVFP->DoCmd('USE "C:\Program Files\Microsoft Visual FoxPro 7\Samples\Tastrade\Data\customer"');
my @arr = $objVFP->RequestData('Customer',5);
print Dumper(\@arr);