In your code, you don't seem to be using use strict and use warnings.

If you had, you'd get a warning about an undefined variable $callback when you call $FS->list.

You probably want to try setting my $callback = sub { print "Test\n" }; before the call to ->list, but strictures would probably have helped you find this yourself.