my $source = “/mnt/usbdisk”;

sub Recursive
{
    my $msg = $source;
    ...
{