my @name_with_spaces	= split m/ /, $program;

system ("1", @name_with_spaces);